Top 10k strings from Beta Basic (1983)(Betasoft).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [TZX] (TOSEC-v2007-01-01) /

Back to the directory listing

   3 x$:PLINE x$,li:
   3 XCOR,YCOR:
   3 :OFFSCREEN
   3 :DRAWTURTLE:
   2 MAKEPOS xps,yps:
   2 :PLINE x$,li:
   2 :FD S:RT A:
   2 ,"TURTLE":
   1 yps=yps+yrg*
   1 xps=xps+xrg*
   1 xps-XCOR=0
   1 xps,yps:MAKEPOS xps,yps:
   1 xps,yps:DRAWTURTLE:
   1 md;"p."+x$:
   1 YCOR=YCOR*YSCR/ysc,
   1 XCOR=xps,YCOR=yps:
   1 XCOR=XCOR*XSCR/xsc,
   1 XCOR,YCOR:POKEPEN
   1 WRAPMOVE xps,yps:
   1 WRAP:ONSCREEN? XCOR,YCOR:
   1 WINDOWMOVE xps,yps:ONSCREEN? XCOR,YCOR:
   1 TURTLE    
   1 TOWARDS? xps,yps:
   1 SHOWTURTLE:ST:
   1 SHOWN:DRAWTURTLE:
   1 SETY,yps:SETPOS,XCOR,yps:
   1 SETX xps:SETPOS xps,YCOR:
   1 SETSCRUNCH xsc,ysc:SETSCR xsc,ysc:
   1 SETSCR xsc,ysc:
   1 SETPOS xps,yps:DRAWTURTLE:MOVETO xps,yps:DRAWTURTLE:
   1 SETPOS M,N:
   1 SETPENCOLOUR col:SETPC col:
   1 SETPC col:
   1 SETHEADING hdg:SETH hdg:
   1 SETH hdg:DRAWTURTLE:MAKEHDG hdg:DRAWTURTLE:
   1 SETBR col:
   1 SETBORDER col:SETBR col:
   1 SETBG col:
   1 SETBACKGROUND col:SETBG col:
   1 SCRUNCH=xsc/ysc,
   1 SAVETURTLE:
   1 RT ang:SETH HEADING+ang:
   1 RT A: SETH H+A:
   1 RIGHT ang:RT ang:
   1 REPEAT NUM,x$:
   1 QUICKTURTLE:
   1 PENREVERSE:PX:
   1 PENERASE:PE:
   1 PENDOWN:PD:
   1 PENCOLOUR=col,PC=col:
   1 PEN:ONSCREEN? XCOR,YCOR:
   1 OUTSPIRAL S,A,I:HT:
   1 ONSCREEN? xps,yps:
   1 ONSCREEN=1
   1 OFFSCREEN:
   1 No such lin
   1 No POP dat
   1 No END PRO
   1 Missing LOO
   1 Missing DEF PRO
   1 MOVETO xps,yps:
   1 MOVEMODE=3
   1 MOVEMODE=2
   1 MOVEMODE=1
   1 MOVEMODE:FENCEMOVE xps,yps:WINDOWMOVE xps,yps:WRAPMOVE xps,yps
   1 MAKEHDG hdg:
   1 LT ang:SETH HEADING-ang:
   1 LT A: SETH H-A:
   1 LOOP without D
   1 LEFT ang:LT ang:
   1 INSPIRAL S,A,I:HT:
   1 INITIALISE:
   1 HOME:DRAWTURTLE:MAKEHDG 0
   1 HOME: SETPOS 0
   1 HIDETURTLE:HT:
   1 FORWARD dis:FD dis:
   1 FENCEMOVE xps,yps:ONSCREEN? xps,yps:
   1 FENCE:ONSCREEN? XCOR,YCOR:
   1 FD dis:SETPOS 
   1 FD D: SETPOS X+D*
   1 ERROR=STAT=LINO=::\<
   1 EDGE:MAKEPOS 
   1 EDGE :XEDGE:YEDGE
   1 DRAWTURTLE:
   1 DOT xps,yps:DRAWTURTLE:
   1 Created with Ramsoft MakeTZX
   1 CS:MAKEHDG 0
   1 CLEARSCREEN:CS:
   1 CB\:G\<2D\!
   1 Beta Basic\
   1 BK dis:SETPOS 
   1 BK D: SETPOS X-D*
   1 BB        
   1 BACKGROUND=col,BG=col:
   1 BACK dis:BK dis:
   1 B0RDER=col,BR=col:
   1 ACDEFILMNOPRSTUVX
   1 =2G\"E\*K\~
   1 ;md;"p."+x$:
   1 ;"OFFSCREEN":
   1 ;"ERROR: ";error:
   1 :SETPENCOLOUR 5
   1 :SETBORDER 1
   1 :SETBACKGROUND 1
   1 :PENDOWN:WRAP:CLEARSCREEN:SHOWTURTLE:CAPSLOCK:SETERR:
   1 :ONSCREEN? xps,yps:
   1 :MAKEPOS 0
   1 :INITIALISE:SETSCRUNCH 100
   1 2G\go"]\"E\:t\
   1 00:00:00000:00:000
   1 +"Q\#"_\##N#F
   1 *h\#wG#s#r
   1 *O\#####s#r
   1 *(yps<YCOR):
   1 ),HG=HEADING/180
   1 ((yps-YCOR)/(xps-XCOR))
   1 #~#N#F_=W(
   1 #%),/258;>ADGKNSVY
   1 "TURTLE VERIFIED OK":
   1 "K\#"Y\*=\
   1 "Beta Basic"